[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd jaceps
x real epslon real y (n) real f (n) real n integer [f] = jaceps(x,epslon,y,n) function [f] = jaceps(x,epslon,y,n)